FACT.LSP[P,JRA]1 - www.SailDart.org

perm filename FACT.LSP[P,JRA]1 blob sn#161036 filedate 1975-05-29 generic text, type C, neo UTF8

COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DE FACT(X)(COND((ZEROP X)1)(T(TIMES X(FACT (SUB1 X]
C00003 ENDMK
C⊗;
(DE FACT(X)(COND((ZEROP X)1)(T(TIMES X(FACT (SUB1 X]

(DE ABS(X)(COND((GREATERP X 0) X)(T(MINUS X]